REPORT ZSTATIC AND INSTANCE. 


CLASS: LCL CAR DEFINITION. 
PUBLIC SECTION. 
METHODS: 
CONSTRUCTOR IMPORTING CAR MODEL TVPE STRING CAR COL 
OR ΤΥΡΕ sTRING,SHOW DETAILS. 
CLASS-METHODS : SHOW TOTAL NO OF CARS. 
PRIVATE SECTION. 
DATA:MODEL TVPE STRING, 
COLR TVPE STRING. 
CLASS-DATA TOTAL CARS TVPE Ι. 
ENDCLASS. 
CLASS LCL CAR IMPLEMENTATION. 
METHOD CONSTRUCTOR. 
MODEL — CAR MODEL. 
COLR — CAR COLOR. 
TOTAL CARS — TOTAL CARS 4-1. 
ENDMETHOD. 
METHOD SHOW DETAILS. 


WRITE :/ 'THE CURRENT OBJECT DETAILS ARE :-' COLOR 5. 
ULINE. 


WRITE :/ 'MODEL ', MODEL COLOR 2, ' COLOR ', COLR COLOR 6 
ENDMETHOD. 


METHOD SHOW TOTAL NO ΟΕ CARS. 


WRITE :/ 'TOTAL ΝΟ OF CARS ARE :-', TOTAL CARS. 
ENDMETHOD. 
ENDCLASS. 


DATA : CARI TVPE REF TO LCL CAR, 
CAR2 TVPE REF TO LCL CAR. 
START-OF-SELECTION. 


CREATE OBJECT : CARI EXPORTING CAR MODEL — 'M' CAR COLOR — ' 
BLACK', 


CAR2 EXPORTING CAR MODEL — 'M' CAR COLOR — 'RED'. 
CALL METHOD CARl-P2SHOW DETAILS. 
ULINE. 
CALL METHOD LCL CAR—- SHOW TOTAL ΝΟ OF CARS. 


REPORT ZCLASS AND FRIEND CLASSES. 


CLASS LCL SALES DEFINITION. 
PUBLIC SECTION. 
METHODS: PROCESS. 
ENDCLASS. 


CLASS LCL CUSTOMER DEFINITION FRIENDS LCL SALES. 
PUBLIC SECTION. 
METHODS: CONSTRUCTOR. 


PRIVATE SECTION. 
DATA :IT KNAL TVPE TABLE OF ΚΝΑΙ, 
WA KNAL TVPE ΚΝΑΙ. 
ENDCLASS. 


CLASS Icl customer IMPLEMENTATION. 
METHOD CONSTRUCTOR. 
SELECT € FROM ΚΝΑΙ INTO TABLE it knal UP TO 10 ROWS. 
ENDMETHOD. 
ENDCLASS. 


CLASS LCL SALES IMPLEMENTATION. 
METHOD PROCESS. 
DATA : ITAB ΤΥΡΕ TABLE OF ΚΝΑΙ, 
WA ΤΥΡΕ ΚΝΑΊ. 


DATA P CUSTOMER TVPE REF TO LCL CUSTOMER. 
CREATE OBJECT p customer. 


ITAB — p customer-vit knal. 


LOOP AT ITAB INTO WA. 
WRITE :/ WA-KUNNR, WA-NAMEI. 
ENDLOOP. 
ENDMETHOD. 
ENDCLASS. 


DATA O SALES TVPE REF TO LCL SALES. 
START-OF-SELECTION. 

CREATE OBJECT O SALES. 

CALL METHOD O SALES-PPROCESS. 


